Software of the Month Club (Business) 1997 July/Software of the Month Club - Business (Volume 239) (July 1997).iso/pc/code/d.dxr/00015_DJ CODE.ls

Text File | 1996-02-15 | 6.6 KB | 180 lines

global HARP, TIGO, HORN, DRUM, CHIME, BASS, sPALETTE, gObjects, gOBJECTSD, gWorld, gPuppetlines, sQTCharSprite, gNextEnvLetter, gMIDIPlayTRUE, gInitalized, noteObjs, windowsMIDIXObj, xNAVXOBJ, xCURXOBJ, gCPU, gFileSep, gRootPath, gHDpath, gXobjs, gXOBJPath, gCDpath, gCDName

on DoJumptoE01
  genexitkf(#E01)
end

on doDJVid
  DoCharacterMovie(#DJVid)
end

on EnterCharConditonD07
  set OBj to getaProp(gObjects, #DJVid)
  set radioStation to getaProp(getaProp(gStates, #Conditions), #radioStation)
  if radioStation = 0 then
    if voidp(getaProp(getaProp(gStates, #BeenThere), #D07)) then
      setaProp(OBj, #DisplayState, 1)
    else
      if (getaProp(getaProp(gStates, #BeenThere), #D07) > 0) and voidp(getaProp(getaProp(gStates, #BeenThere), #D22)) then
        set Played to #false
        repeat with HERE in [#D05, #D06, #D08, #D09, #D10, #D12]
          if voidp(getaProp(getaProp(gStates, #BeenThere), HERE)) then
            next repeat
            next repeat
          end if
          set Played to #true
          exit repeat
        end repeat
        if Played = #true then
          if getaProp(OBj, #DisplayState) >= 5 then
            setaProp(OBj, #DisplayState, 6)
          else
            if getaProp(OBj, #DisplayState) = 4 then
              setaProp(OBj, #DisplayState, 5)
            else
              if getaProp(OBj, #DisplayState) = 3 then
                setaProp(OBj, #DisplayState, 4)
              else
                setaProp(OBj, #DisplayState, 3)
              end if
            end if
          end if
        else
          if Played = #false then
            setaProp(OBj, #DisplayState, 2)
          end if
        end if
      else
        if getaProp(getaProp(gStates, #BeenThere), #D22) > 0 then
          set Chaotic to #true
          set monitorTuned to #true
          set gotNotes to #true
          repeat with HERE in [#DRUM, #HORN, #timur, #HARP, #CHIME, #BASS]
            if getaProp(getaProp(gObjects, HERE), #State) = #nonChaotic then
              set Chaotic to #false
              exit repeat
            end if
          end repeat
          set MonNUm to getaProp(getaProp(gObjects, #HORNmonitor), #DisplayState)
          repeat with HERE in [#DRUMmonitor, #TIMURmonitor, #HARPmonitor, #CHIMEmonitor, #BASSmonitor]
            if getaProp(getaProp(gObjects, HERE), #DisplayState) <> MonNUm then
              set monitorTuned to #false
              exit repeat
            end if
          end repeat
          repeat with HERE in [#DRUM, #HORN, #timur, #HARP, #CHIME, #BASS]
            if getaProp(gNotes, #HORNmonitor) = [] then
              set gotNotes to #false
              exit repeat
            end if
          end repeat
          if Chaotic = #false then
            if getaProp(OBj, #DisplayState) >= 8 then
              setaProp(OBj, #DisplayState, 9)
            else
              if getaProp(OBj, #DisplayState) = 7 then
                setaProp(OBj, #DisplayState, 8)
              else
                setaProp(OBj, #DisplayState, 7)
              end if
            end if
          else
            if (monitorTuned = #false) and (Chaotic = #true) then
              if getaProp(OBj, #DisplayState) >= 11 then
                setaProp(OBj, #DisplayState, 12)
              else
                if getaProp(OBj, #DisplayState) = 10 then
                  setaProp(OBj, #DisplayState, 11)
                else
                  setaProp(OBj, #DisplayState, 10)
                end if
              end if
            else
              if (monitorTuned = #true) and (Chaotic = #true) and (gotNotes = #false) and (getaProp(OBj, #DisplayState) < 13) then
                setaProp(OBj, #DisplayState, 13)
              else
                setaProp(OBj, #DisplayState, 14)
              end if
            end if
          end if
        end if
      end if
    end if
    setaProp(OBj, #ConCount, 1)
  else
    if (radioStation <> 0) and (getaProp(OBj, #newhit) = #true) then
      set curCredits to getaProp(gStates, #Credits)
      MakeDynamic(#DJVid, #newhit, #false)
      deleteProp(OBj, #DisplayCount)
      if radioStation = 1 then
        if getaProp(OBj, #DisplayState) <> 15 then
          setaProp(OBj, #DisplayState, 15)
          setaProp(gStates, #Credits, curCredits + 5000)
          PDARelease("J04m14p.mov")
          setaProp(OBj, #ConCount, 1)
        end if
      else
        if radioStation = 2 then
          if getaProp(OBj, #DisplayState) <> 16 then
            setaProp(OBj, #DisplayState, 16)
            setaProp(gStates, #Credits, curCredits + 1500)
            setaProp(OBj, #ConCount, 1)
          end if
        else
          if radioStation = 3 then
            if getaProp(OBj, #DisplayState) <> 17 then
              setaProp(OBj, #DisplayState, 17)
              setaProp(gStates, #Credits, curCredits + 1000)
              setaProp(OBj, #ConCount, 1)
            end if
          else
            if radioStation = 4 then
              if getaProp(OBj, #DisplayState) <> 18 then
                setaProp(OBj, #DisplayState, 18)
                setaProp(gStates, #Credits, curCredits + 750)
                setaProp(OBj, #ConCount, 1)
              end if
            else
              if (radioStation < 14) and (radioStation > 4) then
                setaProp(OBj, #DisplayState, 19)
                setaProp(gStates, #Credits, curCredits + 750)
                setaProp(OBj, #ConCount, 1)
              else
                if radioStation = 14 then
                  if getaProp(OBj, #DisplayState) <> 20 then
                    setaProp(OBj, #DisplayState, 20)
                    setaProp(gStates, #Credits, curCredits + 750)
                    setaProp(OBj, #ConCount, 1)
                  end if
                else
                  if radioStation = 15 then
                    if getaProp(OBj, #DisplayState) <> 21 then
                      setaProp(OBj, #DisplayState, 21)
                      setaProp(gStates, #Credits, curCredits + 750)
                      setaProp(OBj, #ConCount, 1)
                    end if
                  else
                    if radioStation > 15 then
                      setaProp(OBj, #DisplayState, 22)
                      setaProp(OBj, #ConCount, 1)
                    end if
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    else
      if (radioStation <> 0) and (getaProp(OBj, #newhit) = #enter) then
        setaProp(OBj, #DisplayState, 23)
        setaProp(OBj, #ConCount, 1)
      else
        setaProp(OBj, #DisplayCount, 2)
      end if
    end if
  end if
  MakeDynamic(#DJVid, #DisplayState, getaProp(OBj, #DisplayState))
  MakeDynamic(#DJVid, #ConCount, getaProp(OBj, #ConCount))
end